home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
AVOGADRO
/
SCIDISCS
/
DISC1
/
WIMPPOLY
/
!WimpPoly
/
cde
/
WPolyWimp
< prev
Wrap
Text File
|
1992-01-26
|
1KB
|
31 lines
C common for WIMP parts of WIMPpoly
PARAMETER (NMENU3=4,NMENUN=3,NMENU1=3)
CHARACTER *12 TITLM3,LIST3D,TITLMN,TITLM1,LIST1,LISTNT
COMMON/WMP/INDAT,NS,
1IWINTR,IWLIST,IWHELP,IWNET,IW3D,IWSAVE,IBLOCK(128),
2 IWIDHP,IHIHP,IWIDNT,IHINT,IWID3D,IHI3D,
3 MBLK3D(7+6*NMENU3),MBLKNT(7+6*NMENUN),MBLK1(7+6*NMENU1),MENWIN
C INDAT unit number (set in INIT) for reading datafiles
C NS number of polyhedra in the list of SOLIDS
C Window handles
C IWLIST list of solids IWHELP help window
C IWNET for drawing the planar net IWINTR Introduction window
C IW3D drawing the 3D polyhedra
C IWSAVE 'Save' menu with drag box
C IBLOCK used for WIMP handling
C Window dimensions
C IWIDNT, IHINT for planar net window
C IWID3D, IHI3D for 3D window
C IWIDHP, IHIHP for help window
C Menu for 3D window and net window
C NMENU3 number of items in menu MBLK3 menu block
C NMENUN .. .. .. .. .. MBLKNT net menu block
C NMENU1 .. .. .. .. .. MBLK1 1st window menu block
C MENWIN window handle for which window menu clicked over
C
COMMON/WMenu/TITLM3,LIST3D(NMENU3),TITLMN,LISTNT(NMENUN),
1 TITLM1,LIST1(NMENU1)
C Menu character variables
C titles for 3D menu TITLM3, for net menu TITLMN, for 1st menu TITLM1
C menu entries for 3D LIST3D, for net LISTNT, for 1st menu LIST1